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ABSTRACT 

This  final  report  on  Contract  No.  AF19 (628) -5026  contains 
a  summary  of  the  five  major  tasks  performed  during  the  one-year 
duration  of  the  contract.  The  work  performed  consisted  of:  1)  a 
variable-precision  floating-point  package  for  the  solution  of  prob¬ 
lems  requiring  very  high  precision,  2)  extension  of  and  improvements 
to  the  software  system  developed  under  an  earlier  contract,  3)  assist¬ 
ance  in  the  implementation  and  validation  of  a  LISP  Compiler, 

4)  development  of  a  program  for  powerful  manipulation  of  symbolic 
text  (TECO) ,  and  5)  specification  of  a  set  of  generalized  display 
routines  for  visual  communication  with  the  computer.  All  work  done 
related  to  the  M-460  research  computer  at  AFCRL. 
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I.  SUMMARY  OF  OBJECTIVES 

A.  Investigate  and  evaluate  techniques  for  the  implementa¬ 
tion  of  processors  for  list-processing  languages.  Consider 
possible  extensions  to,  in  particular,  the  LISP  language,  and 
investigate  the  corresponding  problems  of  implementation. 

B.  Study  techniques,  including  use  of  visual  display  de¬ 
vices  for  facilitating  convenient  interaction  between  an  on-line 
user  and  a  computer  system.  Extend  the  techniques  for  on-line 
debugging  and  program  modification  already  in  use  in  the  AFCRL 
LISP  system. 

C.  Apply  the  results  of  these  studies  to  the  implementation 
of  a  ’’second-generation"  version  of  the  on-line  LISP  list- 
processing  system  currently  in  operation  on  the  AN/USQ-17  com¬ 
puter  at  AFCRL.  Develop  techniques  for  the  convenient  modifica¬ 
tion  and  updating  of  this  programming  system. 
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II.  SUMMARY  OF  TASKS  PERFORMED 

Variable- Precision  Floating-Point  Package 

Some  problem  areas  in  the  Data  Sciences  Laboratory  require 
the  use  of  floating-point  operations  with  very  high  precision. 
Although  routines  were  available  for  floating-point  operations 
on  the  M-460,  the  4S-bit  mantissa  available  with  these  routines 
did  not  provide  sufficient  precision.  Hence  a  new  set  of  routines 
allowing  indefinite  precision  was  designed  and  constructed. 

The  range  of  numbers  dealt  with  by  these  routines  was  not 
increased;  14  bits  for  the  exponent  plus  a  single  sign  bit  was 
still  utilized.  The  precision  is  indefinitely  extensible,  how¬ 
ever,  in  increments  of  30  bits  beyond  the  minimum  45-bit  mantissa. 
A  total  of  14  routines  comprise  the  package,  including  routines 
for  addition,  subtraction,  multiplication,  division,  comparison, 
conversion  to  and  from  fixed-point  form,  moving,  input  and  output. 
Other  functions  available  in  the  package,  such  as  shifting, 
normalizing  and  conversion  from  signed  magnitude  to  l’s  comple¬ 
ment  form,  are  intended  primarily  for  use  by  the  more  user- 
oriented  routines  mentioned  above;  but  they  may  also  be  used  by 
the  programmer  for  more  sophisticated  operations. 

Each  routine  determines  the  precision  required  for  that 
operation  by  a  number  in  one  of  the  index  registers  (b6)  on 
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entry  to  the  routine.  This  number  represents  the  number  of  full 
computer  words  (of  30  bits  each)  necessary  to  contain  the  man¬ 
tissa  beyond  the  minimum  45  bits.  Other  index  registers  contain 
other  parameters  appropriate  to  the  particular  routines. 

The  division  operation  is  the  only  exception  to  the  variable- 
precision  nature  of  the  package.  Since  the  problem  areas  for 
which  the  routines  were  constructed  did  not  require  division  and 
the  implementation  problems  were  considerable,  a  single-precision 
(45-bit)  routine  was  prepared  to  be  compatible  with  the  rest  of 
the  package,  i.e.,  coded  in  the  RAP  language  with  similar  call¬ 
ing  sequences,  word  formats  and  general  conventions. 

The  input-output  routines  do  not  communicate  directly  with 
peripheral  devices  but,  rather,  with  a  character  buffer  which  in 
turn  is  utilized  by  the  general  I/O  routines  in  the  M-460  soft¬ 
ware  such  as  "typel"  and  "flexinl".  Completely  general  format 
is  permitted  allowing  for  decimal  exponential  notation,  integer, 
fixed-point,  etc. 

A  separate  group  of  routines  was  also  prepared  for  single¬ 
precision  floating-point  numbers.  This  was  felt  to  be  desirable 
because  of  the  considerable  saving  in  speed  possible  with  single¬ 
precision  floating-point  arithmetic  by  using  separate  routines 
rather  than  the  single-word  case  of  the  variable-precision 
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routines.  These  routines  have  calling  sequences  identical  to 
their  variable-precision  counterparts  so  that  a  user  program 
could  be  checked  out  with  the  single-precision  routines,  then 
expanded  by  merely  changing  the  names  of  the  routines  called. 

Updated  and  expanded  documentation  of. this  package  is 
given  in  Appendix  A  to  this  report. 

M-460  Assembly  Language  System  _ 

As  a  result  of  work  done  under  a  previous  contract,  many 
basic  software  routines  were  available  for  providing  such 
necessary  functions  is  editing  symbolic  source  programs, 
assembling,  loading  and  linking  separately  assembled  subpro¬ 
grams,  debugging  in  symbolic  language  using  the  on-line  flexo- 
writer,  using  magnetic  tape  for  memory  dumps,  etc.  The  system 
developed  to  control  all  of  these  functions  had  many  inadequacies 
which  required  substantial  work  during  the  course  of  this  con¬ 
tract.  in  order  to  have  available  a  smoothly-running,  efficient 
and  well-integrated  system. 

In  addition  to  innumerable  small  tasks  performed  on  a  day- 
by-day  basis  to  improve  operation  of  the  entire  software  package, 
such  functions  were  performed  as  preparing  library  tapes  con¬ 
taining  certain  system  subroutines  for  use  by  applications 
programs  independently  of  the  system,  relocating  portions  of 
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the  system  to  various  areas  of  core  memory,  making  a  minimum 
form  of  the  FILER  to  be  used  independently  of  the  remainder  of 
the  system,  and  adding  some  primitive  TIC-like  functions  to  the 
FILER.  |  Several  other  features  were  added  to  the  FILER 
facilitate  the  simultaneous  use  of  all  magnetic  tape  units  for. 
speedier  operation  and  allow  for  the  use  of  multiple  copies  of 
a  file  with  a  given  name  on  one  reel  of  tape.  The  latter  fea¬ 
tures  and  associated  command  characters  are  described  in  Appen¬ 
dix  B  to  Quarterly  Status  Report  No.  2. 


LISP  Implementation 

Assistance  was  given  to  members  of  the  AFCRL  research 
staff  in  the  implementation  of  the  LISP  compiler  on  the  M-460. 
This  work  included  editing  and  Compiling  portions  of  the  com¬ 
piler  written  in  the  LISP  language  using  the  previous  version 
of  the  compiler,  checking  out  the  results  of  compilation,  etc. 


TECO 

A  program  named  TECO  (Tape  Editor  and  Corrector)  was  de¬ 
veloped  using  specifications  for  similar  programs  written  for 
the  PDP-1  and  PDP-6.  This  program  wilJ  permit  the  use  of  the 
Type  340  display  device  attached  to  the  M-460  for  program  de¬ 
bugging  and  updating  deeding  with  generalized  text  strings.  Of 
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particular  interest  is  the  ability  to  operate  flexibly  on  LISP 
statements  with  visual  verification  of  the  manipulations  per¬ 
formed. 

TECO  uses  an  on-line  command  language  (which  permits 
macro  definitions,  conditionals,  etc.)  to  Control  input- 
output  as  well  as  text  operations.  The  macro  larguage  allows 
the  most  sophisticated  search,  match  and  substitution  operations 
as  well  as  simple  typographical  corrections  to  text. 

Although  the  existing  input-output  routines  in  the  M-460 
software  system  have  been  used  to  the  maximum  extent  possible, 
it  was  necessary  to  develop  new  routines  for  use  of  the  display 
device.  This  work  was  performed  in  conjunction  with  the  gener¬ 
alized  display  routines  described  below. 

Generalized  Display  Package 

The  Type  340  display  device  interfaced  to  the  M-460  en¬ 
ables  powerful  graphical  techniques  to  be  used  for  on-line 
problem  solving.  Both  line-drawing  (using  incremental  vector 
hardware)  and  alphanumeric  (using  character  generation  hardware) 
facilities  may  be  used  to  great  advantage  in  the  preparation 
and  checkout  of  list-oriented  programs. 

Sine  the  specific  techniques  to  be  used  will  be  deter¬ 
mined  largely  by  experimentation,  it  is  desirable  to  have  a 
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flexible  system  within  which  many  graphical  techniques  can  be 
investigated.  Specifications  were  prepared  for  a  set  of  prim¬ 
itive  routines  to  perform  the  necessary  functions  of  display 
initiation  and  regeneration,  display  buffer  maintenance, 
object  identification,  simple  object  generation  (points,  lines, 
circles,  characters,  etc.),  light-pen  identification,  and  uti¬ 
lization  of  hardware  features  of  intensity  control,  character 
angle  control,  etc.  These  routines  will  be  implemented  under 
a  separate  contract. 
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III.  PERSONNEL  AND  PUBLICATIONS 

Personnel 

The  following  personnel  of  Adams  Associates  have  been  the 
principal  participants  in  the  work  done  under  this  contract: 

Roy  M.  Salzman  Supervisory  Analyst 

Donald  E.  Ellis  Programmer  Analyst 

John  S.  Hermistone  Programmer  Analyst 

Thomas  A.  Flaherty  Senior  Programmer 

Marlene  E.  Ponton  Senior  Programmer 

Publications 

Other  than  the  Quarterly  Status  Reports  and  this  final 
report,  no  publications  have  been  required  by  or  produced  under 
the  terms  of  this  contract. 

i  . 
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APPENDIX  A 

VARIABLE  PRECISION  FLOATING-POINT  PACKAGE 

I.  INTRODUCTION 

The  original  floating-point  arithmetic  package  for  the 
Univac  460  allowed  for  a  14-bit  exponent,  45 -bit  mantissa  and 
a  single  sign  bit.  Since  precision  permitted  by  the  size  of 
the  mantissa  was  not  adequate  for  some  problems,  a  variable- 
precision  package  was  developed  to  provide  basically  the  same 
arithmetic  functions  but  with  no  limit  on  the  length  of  the 
mantissa.  The  only  function  not  available  in  the  variable- 
precision  version  is  floating-point  division.  This  operation 
is  available  in  the  package  as  a  single -precis ion  routine  with 
similar  conventions  since  no  need  could  be  seen  for  variable 
precision  in  this  operation.  Input  and  output  routines  have 
also  been  added  to  facilitate  communication  between  the  package 
and  the  user  routines. 

The  scale  of  the  numbers  which  can  be  handled  by  this 
new  package  is  the  same  as  with  the  previous  set  of  routines 
since  the  exponent  and  the  basic  mode  of  representation  are 
unchanged.  . 
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II.  PROGRAM  CHARACTERISTICS 


The  floating-point  binary  number  format  used  is  a  1-14-n 
format  with  one  common  sign  bit  indicating  the  sign  of  the  total 
numerical  quantity,  a  14-bit  exponent  with  a  bias  of  20000a , 

and  an  n-bit  mantissa  where  n=30(m)+15;  m=l,2,3, - .  Thus  each 

floating-point  number  requires  m+l  30-bit  storage  registers. 

The  mode  of  representation  is  lfs  complement  rather  than  the 
more  usual  signed  magnitude  representation.  Using  this  mode, 
a  negative  floating-point  number  is  a  complete  lfs  complement 
of  its  positive  counterpart.  The  number  format  may  be  diagrammed 
as  follows: 


sign  bit 


FLAD  -  floating-point  addition 

FLSB  -  floating-point  subtraction 

FLTMUL  —  floating-point  multiplication 

FLTUV  -  floating-point  division 
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FLTCOM  -  floating-point  comparison 

FLTFIX  -  floating-point  to  fixed-point  conversion 

FXTFLT  -  fixed-point  to  floating-point  conversion 

NUMIN  -  input  a  floating-point  number  from  a  packed  buffer 

NUMOUT  -  output  a  floating-point  number  to  a  packed  buffer 
FLTMOV  -  move  a  floating-point  number  from  one  area  to 
another 

CTOSM  -  convert  from  signed  magnitude  to  l’s  complement 
RSHIFT  -  right  shift  a  floating-point  number  and  adjust 
exponent 

LSHIFT  -  left  shift  a  floating-point  number  and  adjust 
exponent 

FLTNORM  -  normalize  a  floating-point  number 

GET1  -  input  a  single  character  from  a  packed  buffer 

PUT1  -  output  a  single  character  to  a  packed  buffer 


The  first  nine  of  the  above  routines  would  normally  be 
used  by  the  application  programmer  to  perform  floating-point 
arithmetic  and  input-output  operations.  The  last  seven  routines 
may  also  be  used,  but  their  primary  purpose  is  to  perform 
appropriate  utility  functions  for  the  first  nine. 


Calling  Sequence  Convention 


The  basic  input  arguments  to  the  primary  (first  nine) 
sub-routines  are  contained  in  the  A  and  Q  registers  upon  entry 
to  the  routine.  Normally,  A  contains  the  address  of  the  first 
operand,  Q  the  address  of  the  second  operand,  and  C(FLTN)  the 
number  of  words  required  for  the  mantissa  of  the  operands.  In 
the  case  of  fixed-point  to  floating-point  conversion,  b7  con¬ 
tains  the  binary-point  position  of  the  fixed-point  quantity. 
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Output  of  the  arithmetic  function  routines  (FLAD,  FLSB, 
FLTMUL,  FLTDV)  is  left  in  registers  AF  through  AF+C (FLTN) . 

The  C(FLTN)  is  never  altered  by  the  subroutines  and  therefore 
need  not  be  set  up  before  every  call.  It  should  be  set  initially 
and  at  such  time  as  the  length  of  the  data  changes. 
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III.  SUBROUTINE  DESCRIPTIONS 

The  16  subroutines  referred  to  above  are  described  in 
detail  on  the  following  pages. 
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A 


FLAD 


Function 

To  add  two  floating-point  numbers  of  variable  length 
(format  1-14-m)  and  store  the  normalized  sum  in  a  common 
storage  area. 

Calling  Sequence 

Ida  x 
ldq  y 
rj  flad 
(normal  return) 

Input 

x  -  address  of  first  word  of  X 
y  -  address  of  first  word  of  Y 
n  -  number  of  words  -  1  stored  in  FLTN 


Output 

Z(l)-Z(n+1)  -  Floating-point  sum  of  X  and  Y  stored  in 
AF(1)  -AF(n+l)  . 

Subroutines  Used 

CTOSM,  FLTNORM,  FLT^OV,  RSHIFT 


Storage  Areas  Read 

X(l)  -  X(n+1) ,  Y (1)  -  Y (n+1) ,  FLTN 

Storage  Areas  Written 

AF (1) -AF (n+1) ,  SIGN,  SIGN!,  SIGN  SWITCH,  FLTNUM(l) - 
FLTNUM(n+l) ,  FLTEXP,  AFSIGN 
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Method 


1.  Convert  addends  to  signed  magnitude  format. 

2.  Calculate  a  shift  factor  k 
t  *  I  exp  (x)  1  -  |  exp  (y)  | 

k  =  |t  | 

3.  Shift  smaller  addend  right  k  places  in  order  to  line 
up  binary  point. 


4.  Set 


x  =  ai  2”1 5  +  as  2 


y  =  biZ",c  +  be  2 


-30  +  ...+  a  2“1&m 

m 

-30  ♦  ...+  b  2n5m 

m 


where 

m  -  1  to  (2n+l) 

5.  Add  (for  range  of  m) 

W  =  b  2'1S  +  a  2"xsm 
m  m  m 

set  W0  =  0 

6.  Combine  W’s  to  form  sum  z 

for  m  =  (2n-l)  to  1;  r  =  overflow 


-l  s 


z  . , +  r  . ,  =  W  .2 
m-H  m+1  m-1 

2  2 
for  m  =  2n+l 


zn+l  +  rn+l  =  W2(n-1) 


+  W  +  r  , . 
m  m+1 

2 


2”1 5  +  W 


2n+l 


7.  If  ri  is  equal  to  zero,  go  to  step  8. 

If  ri  is  not  equal  to  zero,  shift  entire  sum  right 
and  adjust  exponent  accordingly. 


8 .  Insert  exponent 
Zi  +  exp  (z)  •  2  1 5 


Zl 
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9.  Convert  addends  back  to  l’s  complement. 
10.  Normalize  sum. 


Error  Conditions 

If  the  exponent  of  the  result  z  exceeds  37777,  control 
is  transferred  to  "flterror."  A  STOP  4  halt  will  result  and 
the  address  at  which  the  error  occurred  will  appear  in  the 
A-register . 


A- 4 
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1’LSR 

Function 

To  subtract  one  variable- length  floating-point  number 
(format  1-lU-m)  from  another  of  tlie  same  length  and  store  the 
normalized  difference  in  a  common  storage  area. 

Calling  Sequence 

Ida  x 
ldq  y 
r.j  flsb 
(normal  return) 

Input 

x  -  address  of  first  word  of  X 
y  -  address  of  first  word  of  Y 
n  -  number  of  words  -  1  stored  in  rLT\! 

Output 

%(1)-Z(n+1)-  J'loating-p  :>  u  ••!  <  rencc  of  X  and  Y  stored  in 

AF (1) -AF(n+l) . 

Subroutines  Used 
HAD 

Storage  Area  Read 

X(l)  -  V(n+1) ,  Y (1)  -  Y(n+1) ,  FLTN 

Storage  Area  Written 
AF(1) -Af (n+1) 
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Method 

1.  Complement  floating-point  number  y. 

Save  original  sign. 

2 .  Go  to  add  x  and  y  (see  FLAD  for  method) . 

3.  Restore  y  to  original  sign. 


Error  Conditions 

None  except  those  provided  by  FLAD. 
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FLTMUL 


Function 

To  multiply  two  floating-point  numbers  of  variable  length 
(format  1-14-m)  and  store  the  normalized  result  in  a  common 
storage  area. 

Calling  Sequence 

Ida  x 
ldq  y 
rj  fltmul 
(normal  return) 


Input 

x  -  address  of  first  word  of  X 
y  -  address  of  first  word  of  Y 
n  -  number  of  words  -  1  stored  in  FLTN 


Output 

Z(l)-Z(n+1)  -  floating-point  product  of  X  and  Y  stored  in 
AF  (1)  -AF  (n+1) 

Subroutines  Used 

CTOSM,  FLTNORM 

Storage  Areas  Read 

X(l)  -  X(n+1),  Y(l)  -  Y (n+1)  ,  FLTN 

Storage  Areas  Written 

AF(l)-AF(n+l) ,  FLTNUM(l)  -  FLTNUM(2n+l)  ,  SIGN 
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Notes 

1.  Length  of  input  is  limited  only  by  amount  of  storage 
reserved  for  a  working  area .  Presently  the  maximum  word  length 
is  10 . 

2 .  To  avoid  an  error ,  both  words  should  occupy  the  same 
amount  of  storage.  If  one  input  value  is  shorter,  it  should 
be  filled  with  zeros . 


Error  Conditions 
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FLDV 


Function 

To  divide  a  pair  of  floating-point  numbers  each  of  length 
2  (format  1-14-45)  and  store  the  normalized  result  in  a  common 
storage  area  (AF,AF+1) . 


Calling  Sequence 

Ida  x 
ldq  y 
rjp  fldv 
(normal  return) 


Input 

x  -  address  of  first  word  of  X 
y  -  address  of  first  word  of  Y 


floating-point  quotient  of  X/Y  stored  in  AF,AF+1 


Storage  Areas  Read 

X,  X+l,  Y,  Y+l 
Storage  Areas  Written 

AF,AF+1 ,  DVHP1 ,  DVHPR1 ,  DVHP2,  DVHPR2 ,  FLTNUM,  FLTNUM+1 


Output 

Z(1),Z(2)  - 

Subroutines  Used 
CTOSM 
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FLTCOM 


Function 

To  compare  arithmetically  two  variable-length  floating¬ 
point  numbers  (format  1-14-m) .  Control  is  returned  to  one  of 
the  three  locations  following  the  call  depending  on  the  rela¬ 
tionship  between  the  numbers. 


Calling  Sequence 

Ida  x 
ldq  y 
rj  fltcom 
(return  1  if  x  <  y) 
(return  2  if  x  =  y) 
(return  3  if  x  >  y) 


Input 

x  -  address  of  first  word  of  X 
y  -  address  of  first  word  of  Y 
n  -  number  of  words  -  1  stored  in  FLTN 


Output 

None 


Subroutines  Used 
FLSB,  LSHIFT 


Storage  Areas  Read 

X(l)-X(n+1)  ,  Y(l)-Y(n+1)  ,  FLTN 


Storage  Areas  Written 


FLTNOT 


A-17 
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lethod 


1.  Check  X  and  Y  for  like  signs. 

If  signs  are  not  alike,  choose  positive  value  as  the 
greater  and  transfer  control  to  proper  return. 

3.  If  signs  are  alike  and  positive,  calculate  K. 

K  *  exp  (x) -exp  (y) 

a.  if  K  <  0  then  X  <  Y  I  ' 

b .  if  K  >  0  then  X  >  Y 

c.  if  K  *  0  then  go  to  FLSB 

subtract : 


X-Y  *  Z 


if  Z  >  0  then  X  >  Y 
if  Z  <  0  then  X  <  Y 
if  Z  *  0  then  X  *  Y 


d.  transfer  control  to 

If  signs  are  alike  and 
Then  calculate  K. 

K  =  exp  (x) -exp  (y) 

a.  if  K  <  0  then  X  >  Y 

b.  if  K  >  0  then  X  <  Y 


proper  return 

negative,  complement  both  values 


c.  if  K  =  0  then  go  to  FLSB 
subtract 


X-Y  =  Z 


if  Z  <  0  then  X  >  Y 
if  Z  >  0  then  X  <  Y 
if  Z  *  0  then  X  =  Y 
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d.  Restore  original  signs  of  input 

e.  Transfer  control  to  proper  return 

Error  Conditions 
None . 
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FLTFIX 


Function 


To  convert  a  variable-length  floating-point  number 
(format  1-14-m)  to  a  fixed-point  number  and  store  the  binary 
point  8. 


Calling  Sequence 

Ida  x 
ldq  y 
rj  fltfix 
(normal  return) 

b7  contains  the  binary  point  (8)  on  return 


Input 

x  -  address  of  first  word  of  floating-point  number  X 
to  be  converted 

y  -  address  of  first  word  of  area  into  which  fixed-point 
number  Y  should  be  stored 
n  -  number  of  words  -  1  stored  in  FLTN 


Output 

8  -  binary  point  of  number  generated 
Y(l)-Y(n+1)  fixed-point  X 


Subroutines  Used 

LSHIFT,  FLTMOV ,  CTOSM 


Storage  Areas  Read 


X(l)  -  X(n+1),  FLTN 
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A- 20 


Storage  Areas  Wr-H-t-or. 


SIGN,  FLTNUM,  Y(l)  -  Y(n+1) 


Method 


1.  Set  X  =  jxj;  save  original  sign. 

2.  Move  input  to  f  (working  storage  -  FLINUM) 
for  m  =  1-  (n+1) 

f  =  X 
m+l  m 

3*  f*2  14  shifting  left  14  Diaper  -mwo 

le.f*  JUStifleS  the  **PUt  in  the  area  f  D  f 

wxth  one  bit  remaining  for  sigri.  1  '  to  f(n+2> 

4.  Set  Ym  =  fm+1  for  m  *  1  to  (n+1)  . 

5.  Restore  original  sign  of  value. 


Error  Condi tinne 


None , 
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FXTFLT 


Function 

To  convert  a  variable-length  fixed-point  number  to  a 
floating-point  number  in  format  1-14-m.  Output  will  be 
normalized. 


Calling  Sequence 

Ida  x 
ldq  y 
ldb  0 ,  ,7 
rj  fxtflt 
(normal  return) 


Input 

x  -  address  of  first  word  of  fixed-point  number  X  to  be 
converted 

y  -  address  of  first  word  of  converted  number  Y 
n  -  number  of  words  -  1  stored  in  FLTN 
0  -  binary  point  of  input 


Output 

Y(l)-Y(n+1)  -  floating-point  representation  of  input  X. 


Subroutines  Used 

FLTNQRM ,  FLTMOV ,  CTOSM 


Storage  Areas  Read 


X(l)-X(n+i),  FLTN 


Storage  Areas  Written 
Y(l)  -Y(n+1) 
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A-  22 


Method 

1.  Let  X  =  |x|,  save  original  sign. 

2 .  Move  input  to  working  storage  f . 

for  m  =  1  to  (n+1) 

f  =  X 
m+1  m 

3  .  Set  exp  (f )  =  bias  +15 
n  =  n+1 

4.  Insert  exponent  into  first  word  of  f-area 

f  (1)  =  exp  (f)  •2“16 

5 .  Normalize  f  area . 

6.  Restore  original  sign. 

7.  Transfer  f-area  to  Y-area. 


Error  Conditions 


None . 
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NUMIN 


Function 


To  convert  a  floating-point  number  represented  by  a  flex- 
code  array  to  binary  format  float i*  •  oint  number  of  specified 
length.  Numin  will  accept  any  f-  3  format 

12 

12.0 

12. 

1.2E+1 

1.2E1 

120E-1  -100  <  E  <  100 

A  77  code  will  delimit  the  array. 


Calling  Sequence 

Ida  x 
ldq  buffer 
rj  numin 
(error  return) 
(normal  return) 


Input 

buffer  =  starting  address  of  flex-code  array 

x  =  starting  address  of  binary  floating-point  number 
n  =  number  of  words  -  1  stored  in  FLTN 


Output 

X(l)  -X(n+1) 


Subroutines  Used 


GET1,  FLTN0RM,  FLTMOV ,  FLTMUL ,  FLAD,  POWER,  CTOSM 


a  da  m  s  a  s  s  o  r  i  a  t  <  * » 


Storage  Areas  Read 
FLTN 

Storage  Areas  Written 
X(l)  -X(n+1) 


A- 2  4 

NUMIN  -  con't 
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NUMOUT 


Functic  n 

To  convert  a  binary  floating-point  number  to  a  flex-code 
array  with  integral  and  fractional  portions  specified  and  an 
exponent.  A  77  will  delimit  the  output  buffer. 


Calling  Sequence 

Ida  buffer 

ldq  x 

rj  numout 

uandl  k,l 

(error  return) 
(normal  return) 


Input 

buffer  =  starting  address  of  flex-code  array 
x  =  starting  address  binary  array 
k  =  number  of  decimal  places  before  decimal  point 
1  =  number  of  decimal  place  after  decimal  point 
n  *  number  of  words  -1  of  input  stored  in  FLTN 

The  length  of  the  buffer  LIM  is  determined  by  the  input 

LIM  =  K  +  L  +  15 
5 


Output 

A  flex-code  buffer  representing  the  floating-point  number, 
stored  in  C(LIM)  locations  beginning  at  BUFFER  and  delimited  by  77 


Subroutines  Used 

CTOSM,  FLTMUL,  FLTMOV ,  FLTCOM,  PUT1,  FLTNORM 


\ 

i 
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NUMOUT  -  con't 

Storage  Area  Read 

X(l)-X(n+1) ,  rLTN 

Storage  Area  Written 

BUFFER (1)  -  BUFFER (LIM) 
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FLTMOV 


Function 

To  transfer  any  string  of  words  from  one  area  to  another 


Calling  Sequence 

Ida  x 
ldq  y 
rj  fltmov 
(normal  return) 


Input 


x  -  starting  address  of  area  to  be  transferred 
y  -  starting  address  of  area  to  be  filled 
n  -  number  of  words  to  be  moved  -  1  stored  in  FLTN 


Output 

Y  (1)  -Y  (n+1) 


Subroutines  Used 
None 


Storage  Areas  Read 

X(l) -X(n+1) y  FLTN 


Storage  Areas  Written 


Y (1) -Y (n+1) 


Error  Conditions 


None 


CTOSM 
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Function 

To  convert  a  l’s  complement  floating-point  number  to 
signed  magnitude,  or  vice  versa. 


Calling  Sequence 


Ida  x 
rj  ctosm 
(normal  return) 


Input 

x  -  address  of  first  word  of  floating-point  number  X 
n  -  number  of  words  -  ir  stored  in  FLTN 


Output 

X(l)-X(n+1)  converted  floating-point  number. 


Subroutines  Used 
None 

Storage  Areas  Read 

X(l) -X(n+1) ,  FLTN 


Storage  Arens  Written 

X(l)-X(n+1) 

Method 


If  X  >  0  transfer  control  to  user 


A- 29 


adams  associates 

2.  If  X  <  0  set  X  =  -X. 

3.  Invert  sign  bit. 

Error  Conditions 
None . 


-»  *7* 
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RSHIFT 


Function 

To  shift  a  variable-length  floating-point  number 
(format  1-14-m)  n  places  right  (end  off)  and  adjust  the  ex¬ 
ponent  accordingly. 

| 

Calling  Sequence 

Ida  x 
ldq  k 
rj  rshift 
(normal  return) 


Input 

x  -  address  of  first  word  of  floating-point  number  X 
to  be  shifted 

n  -  number  of  words  -  1  stored  in  FLTN 
k  -  number  of  places  to  shift 


Output 

X(l)-X(n+1)  shifted  input  in  same  area 


Subroutines  Used 
CTOSM 


Storage  Areas  Read 

X(l)  -X(n+1)  ,  FLTN 

Storage  Areas  Written 

RTEMP,  RTEM1 ,  RTEM2 ,  IR2,  RSH7 


ici.'i '  is  i'ISSI  M  ■  in  t  *  -s 


A- 31 


Method 


4 


Error  C 


.  Set  K  *  k. 

.  If  k  >  30  set  kf  =  30  and  k  =  k-30 
If  k  £  30  set  k’  =  k  and  k  =  0 

.  Let 


X  =  ai2'15  +  as2~30  +...+  a  2'ls(n+1> 

n+l 

bi=  a12"15 
tfe=  as  2~30 


b  =  a*  2”lS(n+1) 
m  n+l 


r  =  overflow 

for  m  =  n+l 

C  +  r  =  b  -2 
m  mm 

for  m  =  n  to  0 

C  +  r  =  b  *2"k,+  r 
m  m  m  rm+l 


*  Check  k  =  0.  If  k  =  0  replace  original  input  with  C. 
Set  exp  =  exp  +  K. 

If  k  /  0  return  to  step  3. 


u.iditions 


\ 


None . 
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Method 


than 


Same  as  RSHIFT  routine 
negative . 


except  that  K  is  positive  rather 


Error  Condi tinnC 


non-zero,  ^o^trol  "will  ^here  is  a  remainder  of 
address  at  which'tfc  ir^r  o^urreSlm  Ihe 
A-register  and  a  STOP  tj  wiii  0ec^r  U1  b  Sh0Wn  ln  thG 


I 
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FLTNORM 

Function 

To  normalize  a  floating-point  number  of  variable  length 
(format  1-14-m) .  The  first  significant  bit  will  be  0  if  number 
is  negative  and  1  if  number  is  positive.  The  exponent  will  be 
adjusted  accordingly. 

Calling  Sequence 

Ida  x 
rj  fltnorm 
(normal  return) 

nut 

x  -  address  of  first  word  of  floating-point  number  X 
n  -  number  of  words  -  1  stored  in  FLTN 

Ou  tput 

X(l)-X(n+1)  a  normalized  floating-point  number  stored  in 
area  of  input. 

Subroutines  Used 

LSHIFT,  CTOSM 

Storage  Areas  Read 

-I.I.-I..  II  I  —  —  II  ..  I  .■III 

X(l) -X(n+1) ,  FLTN 
Storage  Areas  Written 


X(l) -X(n+1) 


>'  1  <  1  <  lliiS  « I  S  S  < » <  *  i «  I  t  *  •  s 
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Method 

1.  Examine  number  starting  with  first  word. 

2.  Inspect  one  bit  at  a  time  until  reaching  the  first 
significant  bit. 

3.  Index  k  at  each  check  to  determine  a  shift  factor, 
h .  Go  to  LSIIIFT  with  k  as  input. 


GET1 


Function 

To  unpack  a  specified  buffer  of  6-bit  flex-code  characters 
starting  with  the  leftmost  character  and  leave  the  character 
right  justified  in  the  A  register  in  bci  mode. 

Calling  Sequence 

rj  getl 
(normal  return) 

Input 

GPOINT  =  starting  address  of  buffer 

GCHAR  =  character  (0-4)  to  start  reading  (left  to  right) 
Output 

A  -  next  6-bit  bci  character 

GPOINT,,  GCILAR  -  updated  character  position 

Subroutines  Used 
None 

Storage  Areas  Read 

G POINT,  GCHAR  TBCIFLX  (table) 

Storage  Areas  Written 
G POINT,  GCHAR 
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PUT1 


Function 

To  pack  a  buffer,  from  left  to  right,  with  6-bit  characters 
converted  to  flex-code  from  bci . 


Calling  Sequence 

Ida  k 

jr  put! 

(normal  return) 


Input 


F POINT  =  starting  address  of  buffer 

FCliAR  =  character  (0-4)  to  start  packing  (left  to  right) 
K  =  six-bit  flex-code  character 


Output 

A  packed  buffer  of  bci  code 

PPOINT,  PCHAR  -  updated  character  position 


Subroutines  Used 


None 


Storage  Areas  Read 

TBICFLX,  PCHAR,  PPOINT 


Storage  Areas  Written 


PCHAR,  PPOINT 
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IV.  CONSTANTS 


Label 

Value 

Description 

con4 

40000-00000 

Used  to  set  and  complement 
the  sign  bit 

con8 

0000077777 

Used  in  subtract  routine 

con7 

00001-00000 

Used  to  check  overflow 

instl 

rj  flad 

Instruction  switch  used  in 

'flsb' 

inst2 

jl  fish 

Instruction  switch  used  in 

’fish* 

V.  FLOW  CHARTS 

•  •  •  • 

Flow  charts  for  the  subroutines  described  in  the  pre¬ 
ceding  section  appear  on  the  remaining  pages  of  this  appendix. 
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